home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs66.d81 / pscrcltx.cvt (.txt) < prev    next >
GEOS ConVerT  |  2009-10-10  |  2KB  |  77 lines
  1. ECIRCLETXT.PS
  2. PRG formatted GEOS file V1.0
  3. LaserWriter 2.1
  4. 28 V2.0 or higher
  5. nonps
  6. BLASTER'S CONVERTER V2.5HX
  7. LW_Greek
  8. CAVE GIRL R
  9. Write Image V2.1
  10. Red Storm
  11. geoWrite    V1.1
  12.   This file was created with
  13. Wrong is Write.
  14.   Written by Joe Buckley.
  15. %% Ron King
  16. %% THIS FILE MUST BE CONVERTED TO TRUE ASCII
  17. %% BEFORE UPLOADING TO A POSTSCRIPT PRINTER
  18. %% Puts text running around a circular arc in
  19. %% the middle of the page
  20. %% From the Postscript Cookbook by Adobe Systems
  21. %% Next 3 lines puts 64/128 under arc
  22. /Times-Roman findfont 72 scalefont setfont
  23. 210 504 moveto
  24. (64/128) show
  25. %% Circletext code 
  26. /outsidecircletext
  27. { circtextdict begin
  28. /radius exch def
  29. /centerangle exch def
  30. /ptsize exch def
  31. /str exch def
  32. /xradius radius ptsize 4 div add def
  33. gsave
  34. centerangle str findhalfangle add rotate
  35. { /charcode exch def
  36. ( ) dup 0 charcode put outsideplacechar} forall
  37. grestore
  38. } def
  39. /circtextdict 16 dict def
  40. circtextdict begin
  41. /findhalfangle
  42. { stringwidth pop 2 div
  43. 2 xradius mul pi mul div 360 mul } def
  44. /outsideplacechar
  45. { /char exch def
  46. /halfangle char findhalfangle def
  47. gsave
  48. halfangle neg rotate
  49. radius 0 translate
  50. -90 rotate
  51. char stringwidth pop 2 div neg 0 moveto
  52. char show
  53. grestore
  54. halfangle 2 mul neg rotate} def
  55. %% Next line defines pi
  56. /pi 3.1415923 def
  57. %% Next line defines the font and size
  58. /Times-Bold findfont 36 scalefont setfont
  59. %% next line sets origin to page center
  60. 306 448 translate
  61. %% Your text goes in between the parenthesees
  62. (You Can do Anything With a Commodore)
  63. %% next line inputs point 36 (font size)
  64. %% angle (90 degrees)
  65. %% radius of the arc 160 (in points)
  66. 250 504 moveto
  67. (64/128) show
  68. 36 90 200 outsidecircletext
  69. showpag
  70. %% next line inputs point 36 (font size)
  71. %% angle (90 degrees)
  72. %% radius of the arc 160 (in points)
  73. 250 504 moveto
  74. (64/128) show
  75. 36 90 200 outsidecircletext
  76. showpage
  77.